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Be sure you are in the Atari Memo Pad Mode* That can be 
accomplished by removing the BASIC cartridge or by typing 
"BYE" if you are in BASIC ♦ Copy the following text exactly 
as it is written ♦ You will wake corrections after you have 
finished typing the whole section* The letters and words 
that are underlined show you what changes need to be made* 
You will type them as regular letters or words, without the 
underlining* The '*' shows were a word has been omitted* 
You should leave out the '*' when you make corrections* 



Color Register — The zpecific 
location in and computers Memory 
that stores the colro you tell it to* 

E.EEK — A BASIC comnand that tells 
the computer to look into a specific 
location in the computer Us memory 
and see what what is stored there* 

POKE — A x command that tells 
the computer to put a new number into 
a specific location in the computer's 
memory* 



Now you are ready to correct the paragraph* Use the 
guide on the next page to make the corrections* The idea is 
to help you learn to use as few keystrokes as possible, so 
you should not retype whole lines to correct mistakes* The 
corrected version below should help you to check your final 
copy* 



CORRECTED VERSION 

Color Register- — The specific 
location in the computer's memory 
that stores the color you tell it to* 

PEEK—A BASIC command that tells 
the computer to look into a specific 
location in the computer's memory 
aind see what is stored there* 

POKE — rA BASIC command that tells 
the computer to put a new number into 
a specific location in the computer's 
memory* 
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CHALLENGES 



Use FOR* .NEXT loops to write a prograM (or progracts) to solve 
one or wore of the following problews. 



1. Write s prograw to output one of the designs below* 
Print your nsne instead of the word NAME if you do the first 
one* 



A. NAME 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 



B. * 
*** 
***** 
******* 
********* 
*********** 



C. 



X 
X X 
X X 
* X 
X X 
X X 
X 



D. XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 

XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 



Copyright Atari, Inc., 1983. All rights reserved. 

14IA 



C H A L~ L !EI M G EZ B 

( continue: D) 



Write a program to print one of the nuftber sequences* 

A* First sequence: 

5 2^ ^3 62 81 100 

B ♦ Second sequence! 

3 40 77 114 151 188 



3* Write a progr3M that shows all the numbers between 1 and 
100 that are divisible by 3* If you have titte, change the 
program* so that a person can ask for all the numbers between 
two numbers that are divisible by a third nunber ♦ 
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LOOPS 
FOR * * * NEXT 
(CAMPER COPY > 



10 REM FOR* ♦♦NEXT Introduction 

20 FOR C0UNT=1 TO 10 

30 PRINT COUNT 

40 NEXT COUNT 



10 REM Printing lots of letters ♦ 
20 FOR NUMTIMES=1 TO 400 
30 PRINT "Z-"J 
40 NEXT NUMTIMES 

50 PRINT "WOOPS! TIME TO WAKE UP ♦ " 



10 REM Using variables and linits 

20 START=1 

30 FOR NUM=START TO 10 

40 PRINT NUM 

50 NEXT NUM 



10 REM Danger o»js and iwproper 

15 REM use of a variable 

20 FOR COUNTER=l TO 25 

30 C0UNTER=C0UNTER+1 

40 PRINT COUNTER 

50 NEXT COUNTER 



10 REM Illustration of a Delay Loop 

20 PRINT "Please wait a Monent*" 

30 FOR WAIT=1 TO 3000:NEXT WAIT 

40 PRINT "Thank you for waiting*" 
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l_ O ID IF- S 
FOR * * * S-4 IB X "T STEP 

(CAMPER COPY ) 



10 REM Illustrating STEP 

20 FOR C0UNT=1 TO 20 STEP 2 

30 PRINT COUNT 

40 NEXT COUNT 

Add line 15 and change line 20 ♦ 

15 NUMSTEP=4 

20 FOR C0UNT=1 TO 40 STEP NUM 



10 REM Using variables with STEP and FOR. ♦♦NEXT 

20 PRINT "By what nuMber would you like to" 

30 PRINT "count?"; 

40 INPUT COUNTBY 

50 PRINT "Let Me think*.*" 

60 FOR WAIT=1 TO 30 0 0. NEXT WAIT 

70 PRINT "OK. I will count by "J COUNTBY 

80 FOR COUNTER=0 TO 50 STEP COUNTBY 

90 PRINT COUNTER 

100 NEXT COUNTER 



10 REM A prograM to count backwards 
20 PRINT "7" : REM Clears screen 
30 "*xxCOUNTING BACKWARDS*:**" ♦ PRINT 
40 PRINT "Please give Me a nuMber" 
50 PRINT "between 2 and 10 0. "; 
60 INPUT NUM t PRINT 

70 PRINT "Counting backwards can be fun." 
80 PRINT "Starting with "J NUM. " and ending with 
1.": PRINT 

90 FOR WAIT=1 TO 1000. NEXT WAIT. REM Delay loop to 

allow ti.Me to read 
10 0 FOR COUNTER=NUM TO 1 STEP -1 

no print counter;" n ; 

120 NEXT COUNTER 

130 PRINT t PRINT: REM Advances before starting the 

prograM again. 
140 GOTO 40 : REM Ask for another input 



10 REM Sound deMO of STEP 

20 FOR PITCH=0 TO 255 STEP 1 

30 SOUND 0 t PITCH ,10.10 

4 0 NEXT PITCH 

50 FOR PITCH=255 TO 0 STEP -1 

60 SOUND 0. PITCH ,10, 10 

7 0 NEXT PITCH 
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LOOPS 
COPY) 



10 REM DeMonstr ation of nested loops 4 

20 FOR 0UTERL00P=1 TO 5 

30 PRINT "0UTERL0OP = " J 0UTERL00P 

10 FOR INNERLOOP=l TO 3 

50 PRINT " INNERLOOP = "JINNERLOOP 

60 NEXT INNERLOOP 

70 PRINT 

80 NEXT OUTERLOOP 

Change the values in lines 20 and 10 to! 

20 FOR OUTERLOOP=l TO 3 

10 FOR INNERLOOP=l TO 5 



and then predict what the output will be before you run the 
program 



10 REM Printing stars 

20 FOR NUMDQWN=1 TO 10 

30 FOR NUMACROSS=l TO 10 

10 PRINT 

50 NEXT NUMACROSS 

60 PRINT 

70 NEXT NUMDOWN 

Change the values in lines 20 and 30, so that the program 
Makes one of the boxes below* 



)K )IC )K 5CC 5X 5IC 5K )5C )K)K 

)(C J4C 5K )5C )K)9C 5KJK5(C5JC5X)X)XJJ{ 

/TV /H /tk /I* #»* #1% /l\ 

)CC 51C 3IC 5IC 59C 55C 
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NESTED L.O O R S 

(CAMPER COPY - CONTINUED) 



10 REM A triangle of stars 

20 FOR ROW=l TO 10 

30 FOR STARS=1 TO ROW 

40 PRINT 

50 NEXT STARS 

60 PRINT 

7 0 NEXT ROW 

Change the prografw so that the triangle is turned upside 
down like this J 

^tC y^C )tC /^C 

3K3KX 
X 



10 REM Moving indenting before printing. 

20 PRINT "T":REM Clear screen* 

30 PRINT "INDENT" 

40 FOR INDENT=1 TO 10 

50 FOR SPACES=1 TO INDENT 

60 PRINT " "J 

70 NEXT SPACES 

80 PRINT "INDENT" 

90 NEXT INDENT 



10 REM Containing color and sound 

20 PRINT "ft" t REM Clear screen 

30 FOR COUNTER=l TO 5 

40 FOR COLQRPITCH=50 TO 150 

50 POKE 710 ,COLORPITCH;REM Changes screen color 

6 0 SOUND 0,COl.ORPITCH,10,6 

70 FOR WAIT=1 TO 10 

80 NEXT WAIT 

9 0 NEXT COLORPITCH 

100 NEXT COUNTER 
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(CAMPER COPY) 



10 REM The Allowance Con 

20 REM Ask for an allowance in a 

30 REM different way* Ask for 1 cent 

^0 REM the first week. Then ask that 

50 REM the anount be doubled each week. 

60 REM The prograM shows you how Much you 

70 REM would earn each week. 

80 PRINT " ":REM Clear screen 

90 WEEK=i: ALLOWANCES 

100 PRINT "WEEK #"?WEEK 

110 PRINT "ALLOWANCE-! ■ $" J ALLOWANCE/10 0 
120 PRINT 

130 ALL0WANCE=ALLQWANCEx2 
150 WEEK=WEEK+1 
210 GOTO 100 
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